-- card: 2245 from stack: in
-- bmap block id: 6687
-- flags: 0000
-- background id: 2777
-- name: File Menu
----- HyperTalk script -----
on idle
  global port
  put the time into field 4
  if SPortHasChar(port) then
    put empty into reslts
    repeat 3
      put recvUpTo(port,return,2,false,false) into newIn
      put newIn after reslts
    end repeat
  end if
end idle

on opencard
  global lastday
  put lastday into field "laston"
  put the abbrev date into field "now"
end opencard


-- part 1 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=66 top=109 right=131 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Newsletters
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"b"&return
  push card
  go card "file section"
  put "Newsletters from other clubs" into card field "where"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=66 top=133 right=155 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clip Art
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"c"&return
  push card
  go card "file section"
  put "Clip art" into card field "where"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=66 top=157 right=179 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fun & Games
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"f"&return
  push card
  go card "file section"
  put "Fun & Games" into card field "where"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=66 top=181 right=203 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hypercard
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"h"&return
  push card
  go card "file section"
  put "Hypercard Stacks" into card field "where"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=66 top=205 right=227 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Music
----- HyperTalk script -----
on mouseUp
  --global port-- currently this feature is not implemented
  --sendSPort port,false,"m"&return
  --push card
  --go card "music section"
  --put "Music area" into card field "where"
  answer "The music menus are not currently supported" with "Sorry"
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=324 top=109 right=131 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: System Files
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"s"&return
  push card
  go card "file section"
  put "System Software" into card field "where"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=325 top=133 right=155 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Templates
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"t"&return
  push card
  go card "file section"
  put "Templates" into card field "where"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=325 top=157 right=179 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fonts
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"o"&return
  push card
  go card "file section"
  put "Fonts" into card field "where"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=325 top=181 right=203 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Telecom.
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"l"&return
  push card
  go card "file section"
  put "Telecommunications" into card field "where"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=325 top=205 right=227 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ð DA's
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"d"&return
  push card
  go card "file section"
  put "Desk Accessories" into card field "where"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=325 top=229 right=251 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Utilities
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"*"&return
  push card
  go card "file section"
  put "Volume/File Utilities" into card field "where"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=66 top=229 right=251 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Programming
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"p"&return
  push card
  go card "file section"
  put "Programming the Mac files!" into card field "where"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=198 top=109 right=131 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Upload File
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"u"&return
  push card
  go card "uploads"
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=198 top=229 right=251 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Files
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"n"&return
  push card
  go card "file section"
  put "New and Latest Files" into card field "where"
  hide card button "Main Menu"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=281 right=303 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Menu
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"e"&return
  go card "Main Menu"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=375 top=305 right=327 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Log off
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"g"&return
  answer "What'll it be?" with "Yes, bye" or "NO WAIT!!" or "Survey"
  if it="Yes, bye" then
    sendsPort port,false,"y"&return
    go card 1
  else if it="NO WAIT!!" then sendSPort port,false,"n"&return
  else sendSPort port,false,"a"&return

end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  show card field "info"
end mouseUp



-- part 19 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=124 top=110 right=175 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: info
----- HyperTalk script -----
on mouseup
  hide card field id 19
end mouseup


-- part contents for background part 4
----- text -----
Sun, Sep 25, 1988

-- part contents for background part 5
----- text -----
10:16 PM

-- part contents for background part 3
----- text -----
Sat, Sep 24, 1988, 12:06 AM

-- part contents for card part 19
----- text -----
This is our file area, from this menu choose the area you would like to see the files of.  The new area has files that have been uploaded in the last month.  Currently, the upload feature is a little buggy, so be on the lookout for an upgrade to this stack.